home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
MacWorld 1998 January
/
Macworld (1998-01).dmg
/
QuarkXPress Passport
/
QXP Passport™ Pre-release PPC
/
QuarkXPress Passport™ 4.0 Demo
/
QuarkXPress Passport™ 4.0 Demo.rsrc
/
PSHD_1008
< prev
next >
Wrap
Text File
|
1997-08-25
|
781b
|
17 lines
/setscr/setscreen load def
/setscreen{xpdctopn/usrscr X setangl
[/setscr0 load/exec load/usrscr load/exec load nf{/neg load}if]cvx/setscr load end exec}B
/crntscr/currentscreen load def
/currentscreen{xpdctopn crntscr currentdict/usrscr known
{pop getangl/usrscr load}if end}B
/currentcolorscreen where{pop
/usrstr(usrscrx)def
/setcscr/setcolorscreen load def
/setcolorscreen{xpdctopn 3 -1 0{usrstr dup length 1 sub 3 -1 roll 48 add put
usrstr cvn X setangl[/setscr0 load/exec load usrstr cvn load/exec load
nf{/neg load}if]cvx 12 3 roll}for/setcscr load end exec}B
/crntcscr/currentcolorscreen load def
/currentcolorscreen{xpdctopn crntcscr currentdict/usrscr0 known
{3 -1 0{usrstr dup length 1 sub 3 -1 roll 48 add put pop getangl
usrstr cvn load 12 3 roll}for}if end}B}if